home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / illu / ibrowsep.lha / Command-00-T05 < prev    next >
Text File  |  1995-08-12  |  686b  |  29 lines
  1.  
  2. ; $Id: SynClock,v 3.1 1994/05/27 07:08:39 jraja Exp $
  3. ; $VER: SynClock 3.1 (27.5.1993)
  4.  
  5. ; Set your amiga clock from host in network.
  6. ;    if someone finds a way to get DAY
  7. ;    locale (in)dependent way, (and fast)
  8. ;    please tell me   (too@cs.hut.fi)
  9.  
  10. Assign >NIL: TCP: exists
  11. if warn
  12.     echo TCP: not mounted.
  13.     quit 10
  14. endif
  15.  
  16. rx "Address 'COMMAND'; months='JanFebMarAprMayJunJulAugSepOctNovDec' +
  17.     If ~Open(dt, 'TCP:demon-du/daytime', 'R') Then +
  18.         Do; Say '*** Service not present'; Exit 10; End +
  19.     d = readln(dt) +
  20.     tim = SubWord(d, 4, 1) +
  21.     month=(Pos(SubWord(d, 2, 1), months) + 2) / 3 +
  22.     Date TIME tim DATE SubWord(d, 3, 1)'-'month'-'SubStr(d, 23, 2)
  23.  
  24.  
  25. If SAVE 
  26. SetClock SAVE
  27. EndIf
  28.  
  29.